home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1997 / HAM Radio 1997.iso / vcls / lingua / newkwd.pas < prev    next >
Pascal/Delphi Source File  |  1996-04-08  |  2KB  |  64 lines
  1. unit Newkwd;
  2. (***************************************************************************)
  3. (*                                                                         *)
  4. (*   #####    #####     #####   #####    #####    ####    ######  #######  *)
  5. (*  #        #     #   #          #     #        #    #   #          #     *)
  6. (*  #        #     #   #  ###     #      ####    #    #   ###        #     *)
  7. (*  #        #     #   #    #     #          #   #    #   #          #     *)
  8. (*   #####    #####     #####   #####   #####     ####    #          #     *)
  9. (*                                                                         *)
  10. (***************************************************************************)
  11. {
  12.  (c) 1995 Cogisoft
  13.  This component is FREE distribution. Use it for your own utilization.
  14.  But you can't sell an application, using this component, without the
  15.  authorization of Cogisoft.
  16.  
  17.  COGISOFT,H⌠tel de MΘziΦres,19 rue Michel Le Comte,75003 PARIS,FRANCE
  18.  Tel:(1)40-65-04-04, FAX:(1)42-72-27-87
  19.  
  20.  NO CODING !!!
  21.  Jerome VOLLET, CompuServe : 100560,3342
  22. }
  23. interface
  24.  
  25. uses WinTypes, WinProcs, Classes, Graphics, Forms, Controls, Buttons,
  26.   StdCtrls, ExtCtrls;
  27.  
  28. type
  29.   TfmNewKeyword = class(TForm)
  30.     OKBtn: TBitBtn;
  31.     CancelBtn: TBitBtn;
  32.     HelpBtn: TBitBtn;
  33.     Bevel1: TBevel;
  34.     EdKeyword: TEdit;
  35.     EdTranslation: TEdit;
  36.     Label1: TLabel;
  37.     Label2: TLabel;
  38.     Label3: TLabel;
  39.     EdLanguage: TEdit;
  40.     procedure OKBtnClick(Sender: TObject);
  41.   private
  42.     { Private declarations }
  43.   public
  44.     { Public declarations }
  45.   end;
  46.  
  47. implementation
  48.  
  49. {$R *.DFM}
  50.  
  51. uses Dialogs;
  52.  
  53. procedure TfmNewKeyword.OKBtnClick(Sender: TObject);
  54. begin
  55.     if EdTranslation.Text = '' then
  56.   begin
  57.       ShowMessage( 'Translation MUST be filled !!!' );
  58.       ModalResult := mrNone;
  59.     EdTranslation.SetFocus;
  60.   end;
  61. end;
  62.  
  63. end.
  64.